home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / Exegesis Tools.cpt / Exegesis Tools / background_4040.txt < prev    next >
Text File  |  1990-12-13  |  6KB  |  296 lines
  1. -- background: 4040 from stack: in
  2. -- bmap block id: 5675
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Word Study Back
  6. ----- HyperTalk script -----
  7. on opencard
  8.   --this comes from Stack Developer by Steve Drazga
  9.   put (the number of this card - the number of first card of this background+1) into field "Page Num"
  10. end opencard
  11.  
  12.  
  13. -- part 8 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=12 top=308 right=337 bottom=44
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 12042 / 12042
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Home
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   visual effect iris open
  28.   go Home
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 11 (field)
  34. -- low flags: 00
  35. -- high flags: 0004
  36. -- rect: left=14 top=100 right=115 bottom=93
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 3
  41. -- text size: 9
  42. -- style flags: 0
  43. -- line height: 12
  44. -- part name: Scripture Verse
  45.  
  46.  
  47. -- part 14 (field)
  48. -- low flags: 00
  49. -- high flags: 0002
  50. -- rect: left=282 top=98 right=117 bottom=483
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 128
  55. -- text size: 12
  56. -- style flags: 256
  57. -- line height: 16
  58. -- part name: Word
  59.  
  60.  
  61. -- part 9 (button)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=458 top=308 right=336 bottom=495
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 1012 / 1012
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Return
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual effect wipe down
  76.   go to card id 2974
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 23 (field)
  82. -- low flags: 00
  83. -- high flags: 0002
  84. -- rect: left=374 top=80 right=97 bottom=482
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 245
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Greek Word
  93.  
  94.  
  95. -- part 12 (field)
  96. -- low flags: 00
  97. -- high flags: 0004
  98. -- rect: left=105 top=100 right=115 bottom=184
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 3
  103. -- text size: 10
  104. -- style flags: 0
  105. -- line height: 13
  106. -- part name: Bauer pg
  107.  
  108.  
  109. -- part 13 (field)
  110. -- low flags: 00
  111. -- high flags: 0004
  112. -- rect: left=193 top=101 right=116 bottom=272
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 3
  117. -- text size: 9
  118. -- style flags: 0
  119. -- line height: 12
  120. -- part name: Metzger pg
  121.  
  122.  
  123. -- part 15 (button)
  124. -- low flags: 00
  125. -- high flags: 2000
  126. -- rect: left=301 top=309 right=334 bottom=331
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 6179 / 6179
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Next
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   visual effect wipe up
  138.   go to next card of this bkgnd
  139. end mouseUp
  140.  
  141.  
  142. -- part 16 (button)
  143. -- low flags: 00
  144. -- high flags: 2000
  145. -- rect: left=178 top=308 right=333 bottom=208
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 6460 / 6460
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Prev
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   visual effect wipe down
  157.   go to prev card of this bkgnd
  158. end mouseUp
  159.  
  160.  
  161. -- part 17 (field)
  162. -- low flags: 00
  163. -- high flags: 2002
  164. -- rect: left=15 top=119 right=308 bottom=491
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 128
  169. -- text size: 10
  170. -- style flags: 0
  171. -- line height: 13
  172. -- part name: WS Data
  173.  
  174.  
  175. -- part 21 (button)
  176. -- low flags: 00
  177. -- high flags: 2000
  178. -- rect: left=16 top=35 right=64 bottom=49
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 26635 / 26635
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: How to…
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   push card
  190.   go to card id 8834
  191. end mouseUp
  192.  
  193.  
  194.  
  195.  
  196. -- part 27 (button)
  197. -- low flags: 00
  198. -- high flags: 2000
  199. -- rect: left=455 top=32 right=67 bottom=491
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 18704 / 18704
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Concordance
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   global wordBack
  211.   push this card
  212.   pop card into it
  213.   put it into wordBack --Just like the exiting the Help Stack
  214.   put field "scripture verse" into scripture
  215.   put field "word" into proWord
  216.   go to last card of bkgnd "Concor Back"
  217.   --This checks to see if the first card is blank
  218.   if field "s and w" ‚↠"" then domenu "New Card"
  219.   put scripture&&"/"&&proWord into field "s and w"
  220.   click at 45,87
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 28 (button)
  226. -- low flags: 00
  227. -- high flags: 2000
  228. -- rect: left=47 top=305 right=337 bottom=84
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 1007 / 1007
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: ImageWriter
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   answer "Print ‚ÄúWord Study‚Äù Report or Card?" with "Cancel" or "Report" or "Card"
  240.   if it is "Cancel" then
  241.     exit mouseUp
  242.   end if
  243.   if it is "Report" then
  244.     domenu "Print Report..."
  245.     exit mouseUp
  246.   end if
  247.   if it is "Card" then
  248.     open printing with dialog
  249.     if it is empty then
  250.       exit mouseUp
  251.     else
  252.       print this card
  253.       close printing
  254.     end if
  255.   end if
  256. end mouseUp
  257.  
  258.  
  259. -- part 29 (field)
  260. -- low flags: 01
  261. -- high flags: 0000
  262. -- rect: left=224 top=310 right=328 bottom=284
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 3
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: page num
  271.  
  272.  
  273. -- part 30 (button)
  274. -- low flags: 00
  275. -- high flags: 2000
  276. -- rect: left=421 top=305 right=339 bottom=454
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 22076 / 22076
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Delete Card
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   answer "Delete this card?" with "Cancel" or "Yes"
  288.   if it is "cancel" then exit mouseUp
  289.   set the cursor to 4
  290.   set lockscreen to true
  291.   domenu "delete Card"
  292.   go prev
  293.   set lockScreen to false
  294. end mouseUp
  295.  
  296.